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H 1 001 MODULE RETDIR ( ; 
3 ¢ . § LANGUAGE cot 18838). $ 
; IDENT = ‘Vv04-000' ; 
; 4 004 )z . 
; 5 005 BEGIN 3 
. § O0F 1! | 
: 3 On8 ! i eeeeeneerereeeeeeeeeeeeeeeeeeeeeetereereeteneeeeereneeeeeeeeeeeeeeeneeeeeeee 4 
3 'e * 3 
; 10 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
3 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * : 
i og QO1g 1 is ALL RIGHTS RESERVED. ® | : 
3 } * 3 
3 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * $ 
; 16 Bats 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 49h : > TRANSFERRED. * 3 
3 '® * 3 
cS a 0021 1 !* THE INFORMATION IN |:i]S SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * $ 
3 $§ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
$ si 4 i : ~ CORPORATION. * ; 
5 ' te P+ 
a7 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
3 $8 85 g : ;: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
3 } * 3 
; 2 0028 1 !* * 3 
3 $3 QO29 1 eae eee e eRe E AEE A ARETE REAAERERER EAE g 
; 0030 1 : 
: ae 0031 1 !+4+ 2 
; 3 it T4 1! 3 
Sgt a 0033 1 ! FACILITY: F11ACP Structure Level 1 3 
; 0034 1! 3 
; 35 0035 1 ! ABSTRACT: : 
; » 0036 1! 3 
o> oF 0037 1! This routine returns the resulting data from a directory 3 
:>. 0038 1! operation to the user's buffer packet. : 
; 0039 1! ; 
; 40 0040 1 ! ENVIRONMENT: 3 
,- 0041 1! 3 
3 $$ 0042 1! STARLET operating system, including privileged system services : 
3 4 004 1! and internal exec routines. This routine must be called : 
2: 644 0044 1! in kernel mode. : 
3s 465 0045 1! : 
3 r4] 0046 1 !-- : 
.., & 047 1! : 
: 68 048 1! 3 
3 $3 4 1 } AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Jan-1977 15:07 : 
3 51 0051 1 ! MODIFIED BY: 3 
3 26 sit) 1! ; 
3; > 055 1! A0100 ACG0001 Andrew C. Goldstein, 10-Oct-1978 20:01 3 
| 3 55 bee : Previous revision history moved to f11A.REV | : 
: 56 056 1 ise : 
a 8089 1 3 
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16-Sep-1984 01:15:21 VAX=11_BLiss-32_v4.0-742 Pa 
Ve-$ep-1986 12:29:49 DISKSVMSMASTERSCFTIALGRCIRETDIR.832;1°% (23 
GLOBAL ROUTINE RETURN_DIR (COUNT, STRING, ABD) : NOVALUE = | 


1e4 
i] 


i FUNCTIONAL DESCRIPTION: 


This routine returns the resulting data from a directory 
operation to the user's buffer packet. 


CALLING SEQUENCE: 
RETURN_DIR (ARG1, ARG2, ARG3) 


COCOOOoo I~ 


aN AOAAAO 
ws SSSSIFS z 
GOOOCOCOCCOCCOCOC OOOO OCOOOCOOOOOOO 
WANN AWA 
= OODONA UENO OONOu 


YTEJ, ! file string arg 
OR C,ABDSC_LENGTHI; 
! descriptor arg 


STRING : REF VECTOR C,BYTE) 
ABD : REF BBLOCKVECT 


f the user provided a result length buffer, give him the length 
f the result string. 


1 
i 
i 
i 
i 
! 
H i INPUT PARAMETERS: 
8 ‘ ARG1: byte count of result string | 
76 8 ! ARG2: address of result aterny 
as $3 ARGS: address of buffer descriptors 
79 398 ! IMPLICIT INPUTS: 
80 9 ! NONE 
81 394 } 
8 395 ' OUTPUT PARAMETERS: 
8 396 ! NONE 
84 397 ! 
85 398 ' IMPLICIT OUTPUTS: 
86 399 ! NONE 
87 0400 ! 
88 0401 ' ROUTINE VALUE: 
89 040g 1 NONE | 
040 : 
91 0404 1 / SIDE EFFECTS: ; 
? Ren? } result data written into buffer packet 
94 be leu 
4S 04 
96 + 


| 
!o 
! 

ff SOL Annec AES. ABD$W_COUNT) GEQ 2 

BEGIN 

s_REOCABOSC RESL. ABDSW_TEXT] + ABDCABDS$SC_RESL, ABDSW_TEXT] + 1)<0,16> = .COUNT; 


! If the user provided a result string buffer, return as much of the 
result string as will fit (zero filling the buffer). 
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CHSCOPY (.COUNT, .STRING, 0, 
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M11 | 
RETDIR 16-Sep-1984 01:15:21 -VAX=11 Bliss-32 V4.0-742 4 
V °b00 19-50-1382 4:38:84 DISKSVMSMASTER:CF11A.SRCIRETDIR.B32; (39 «2d \ 
: 119 4 ; -ABDLABDSC_RES, ABD$W_COUNI3, ; 
3 4 -ABDCABDSC-RES, ABDSWITEXT] + ABDCABDSC_RES, ABD$W_TEXT] + 1); | : 
: lee 435 1 END; ! end of routine RETURN_DIR | ; 
TITLE RETDIR | i 
TIDENT \V04-000\ | 
.PSECT $CODES,NOWRT,2 : 
003¢ 90009 .ENTRY RETURN_DIR, Save R2,R3,R4,R5 : 0375 : 
52 0c AC dO 00002 MOVL ABD, R + 0421 : 
02 1A A2-- BB :00006 CMPW = - 26 (R2), #2 : ; 
OF 1F OOOOA BLSSU _1$ : ; 
51 18 Ae 3 000 OVAB 24(R2), R1 + 0424 ; 
50 C 0001 MOVZWL (R1),_RO : ; 
01 A140 9F 0001 PUSHAB 1(R1SCROJ : ; 
9E 04 Ho 001 MOVW COUNT a(sP)+ : : 
21 0 A2 9E 00018 1$ MOVAB (R25 + 0433 : 
0 3¢ O01F MOVZWL (R1) : ; 
22. A2 00 08 BC 04 AC 2¢ 000¢0 MOVCS COUNT, @STRING, #0, 34(R2), 1(R1)CROJ : : 
01 A140 O002A : : 
04 0002D RET + 0435 ; 
; Routine Size: 46 bytes, | Routine Base: SCODES + 0000 : 
: 123 0436 : 
: 124 0437 1 END ; 
> 125 0438 0 ELUDOM é 
; PSECT SUMMARY : 
; Name Bytes Attributes ; 
; SCODES 46 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
| : 
: Library Statistics | : 
Fr Eee ion ae ees se Symbols -------- "Pages Processing | : 
: File Total Loaded Percent Mapped Time : 
| 
| 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RETDIR/OBJ=OBJ$:RETDIR MSRC$:RETDIR/UPDATE=(ENH$:RETDIR) 


Size: : 46 688 + 0 data bytes 


Lines/CPU Min 32 3 
Lexenes/CPU-Min: 13601 

"Y Used: 63 pages 
nee ation Complete 
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